home *** CD-ROM | disk | FTP | other *** search
/ Total Network Tools 2002 / NextStepPublishing-TotalNetworkTools2002-Win95.iso / Archive / Misc Servers / Hamster.EXE / Demo-Session.vbs < prev    next >
Encoding:
Text File  |  1999-05-20  |  1.6 KB  |  52 lines
  1. 'Demo-Session.vbs
  2.  
  3. 'Preferences
  4. Const RASDIAL_CONNECTION     = ""         'Name of RAS-conn; "" = disable dialing
  5. Const RASDIAL_USERNAME       = ""         'Username for RAS-conn; "" = use Hamster-setting
  6. Const RASDIAL_PASSWORD       = ""         'Password for RAS-conn; "" = use Hamster-setting
  7. Const PURGE_BEFORE_TRANSFER  = False      'True = enable purging
  8.  
  9. 'Initialize Hamster-constants
  10. Const HAM_PURGEOPT_DOALL     = &HF
  11. Const HAM_PURGEOPT_DONEWS    = &H1
  12. Const HAM_PURGEOPT_DOHISTORY = &H2
  13. Const HAM_PURGEOPT_DOKILLS   = &H4
  14. Const HAM_WAITIDLE_INFINITE  = 0
  15.  
  16. 'Initialize Hamster-object
  17. 'Note: Hamster.exe will be loaded now if does not run already.
  18. WScript.Echo "Initializing Hamster ..."
  19. Set Hamster = Wscript.CreateObject( "Hamster.App" )
  20.  
  21. If PURGE_BEFORE_TRANSFER Then
  22.    WScript.Echo "Purging ..."
  23.    Hamster.ControlWaitIdle HAM_WAITIDLE_INFINITE
  24.    Hamster.ControlRunPurge HAM_PURGEOPT_DOALL
  25.    Hamster.ControlWaitIdle HAM_WAITIDLE_INFINITE
  26. End If
  27.  
  28. If RASDIAL_CONNECTION<>"" Then
  29.    WScript.Echo "Dialing ..."
  30.    If Not Hamster.RasDial( RASDIAL_CONNECTION, RASDIAL_USERNAME, RASDIAL_PASSWORD ) Then
  31.       Err.Raise 65535, "Error at Hamster.RasDial", "RasLastError=" & Hamster.RasLastError
  32.       WScript.Quit
  33.    End If
  34. End If
  35.  
  36. WScript.Echo "Transfering ..."
  37. Hamster.ControlRunMail ""
  38. Hamster.ControlRunNewsPost ""
  39. Hamster.ControlRunNewsPull ""
  40. Hamster.ControlWaitIdle HAM_WAITIDLE_INFINITE
  41.  
  42. If RASDIAL_CONNECTION<>"" Then
  43.    WScript.Echo "Hanging up ..."
  44.    Hamster.RasHangup
  45. End If
  46.  
  47. 'Release Hamster-object
  48. WScript.Echo "Release Hamster ..."
  49. Wscript.DisconnectObject Hamster
  50.  
  51. WScript.Echo "Ready."
  52.